-- card: 6151 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 2726
-- name: AutoCat Index


-- part 396 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=155 top=266 right=333 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hold Globals


-- part 450 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=36 top=65 right=120 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 24438 / 24438
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Box #1
----- HyperTalk script -----
on mouseUp
  global hardDisk
  put "Box #1 1" into cardNm
  put "Box #1.Index" into indCardNm
  put "Box #1" into boxName
  put false into hardDisk

  --generic button script
  put false into flag
  put the ticks into originalTicks

  repeat until the mouseClick -- flag a single click
    if the ticks - originalTicks > 30 then
      put true into flag -- single click
      exit repeat
    end if
  end repeat
  visual effect iris open

  --begin with creating a box index card
  set cursor to 4
  put the ID of this card into toHome -- store this index card
  put false into frstCrd
  if flag contains false then -- double click
    go to card CardNm -- first disk catalog card of box
    if the result is not empty then
      go to card indCardNm
    end if
  else -- single click
    go to card indCardNm -- box index card
  end if

  if the result is not empty then
    put true into frstCrd -- they don't exist yet
    set lockMessages to true
    set lockScreen to true
    go to card id 5366 -- box index template
    doMenu New Card
    set the name of this card to indCardNm
    put boxName into bkgnd field "Box Name"
    put third word of toHome into bkgnd field "IndexCardID" -- index card
    if hardDisk contains true then
      put "true" into bkgnd field "Hard Disk?" -- floppy or HD box
    else
      put "false" into bkgnd field "Hard Disk?"
    end if
    set lockMessages to false
  end if

  --create and go to first disk card if this is a new box
  if frstCrd contains true then

    -- start a new set of cards for the box
    go to card cardNm
    if the result is not empty then
      set lockMessages to true
      go to card id 3043
      doMenu New Card
      set the name of this card to cardNm
      put word 1 to (the number of words in cardNm -1) of cardNm into bkgnd field "Box Name" of card cardNm -- index which box
      put 1 into bkgnd field "PageOfBox" of card cardNm -- which disk number
      -- which Index Box
      put indCardNm into bkgnd field "Box Card" of card cardNm
      if hardDisk contains true then -- Hard Disk?
        put "true" into bkgnd field "Hard Disk?"
        put "Page#:" into bkgnd field "Name Of Page"
      else
        put "false" into bkgnd field "Hard Disk?"
        put "Disk#:" into bkgnd field "Name Of Page"
      end if

      -- create an opaque button to cover up the arrow pointing to previous
      -- card since this is the first disk catalog page and there will be no
      -- previous disk catalog page
      doMenu New Button
      set rect of button "New Button" to 159,313,185,336
      set style of button "New Button" to opaque
      set showName of button "New Button" to false
      set name of button "New Button" to "Cover Prev"
      choose browse tool
      set lockScreen to false
      go to  card cardNm
      --call ReadAutoCat
      send openCard to card cardNm
    end if
  end if
end mouseUp



-- part contents for background part 5
----- text -----
1

-- part contents for card part 396
----- text -----
Stuff
       5
       3